Corporations & Environmental Impacts: Are We Watching the Planet Burn?
I am a paragraph
References
+Practitioner Guide to Calculating Corporate Environmental Impact
+Corporate Environmental Impact: Measurement, Data, and Information
+HBS: Corporate Environmental Impact: Measurement, Data and Information
+Working Knowledge: Corporate Environmental Impact: Measurement, Data and Information
---
title: "Environmental Impacts"
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: fill
source_code: embed
theme:
version: 4
bg: "#FFF2D2"
fg: "#F8E4B4"
primary: "#B71D3E"
base_font:
google: Roboto
heading_font:
google: Oswald
code_font:
google:
# arguments to sass::font_google()
family: JetBrains Mono
local: false
---
<style>
.chart-title { /* chart_title */
font-size: 20px;
color: #2E0919;
}
body{ /* Normal */
font-size: 18px;
color: #2E0919;
}
.heading-level1 { /* chart_title */
color: #2E0919;
font-size: 20px;
font-weight: 500;
}
.nav-tabs-custom .nav-tabs li.active a {
color: #2E0919;
}
.nav-tabs-custom .nav-tabs li:not(.active) a {
color: #75233B;
}
</style>
```{r setup, include=FALSE}
library(flexdashboard)
pacman::p_load(circlize, chorddiag, DT, knitr, plotly, tidyverse, readxl, cluster, factoextra)
eci <- read.csv("D:/Classwork/Year 3/MTH 208/project/Corporate-Environmental-Impact-Data-2020cleaned.csv")
glimpse(eci)
```
Introduction
===
Column {.tabset data-width=500}
-----------------------------------------------------------------------
### Introduction
**Corporations & Environmental Impacts: Are We Watching the Planet Burn?**
I am a paragraph
### Methodology
Column {.tabset data-width=500}
-----------------------------------------------------------------------
### Impact Factors
```{r}
```
### UN SDG
```{r}
```
EDA
===
Column {.tabset data-width=1000}
-----------------------------------------------------------------------
### Countries
<div class='tableauPlaceholder' id='viz1714077617886' style='position: relative'><noscript><a href='#'><img alt='Most Mentioned Countries ' src='https://public.tableau.com/static/images/Co/CountriesMentioned/Sheet4/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='CountriesMentioned/Sheet4' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/Co/CountriesMentioned/Sheet4/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /></object></div>
```{js, countries, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1714077617886'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
### Industries
<div class='tableauPlaceholder' id='viz1714078030300' style='position: relative'><noscript><a href='#'><img alt='Industries Mentioned 100 or More Times ' src='https://public.tableau.com/static/images/In/IndustriesMentioned/Sheet3/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='IndustriesMentioned/Sheet3' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/In/IndustriesMentioned/Sheet3/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /></object></div>
```{js, industries, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1714078030300'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
### Companies
<div class='tableauPlaceholder' id='viz1714078091304' style='position: relative'><noscript><a href='#'><img alt='Environmental Cost by Company (Positive Values) ' src='https://public.tableau.com/static/images/EC/ECPositive/Sheet1/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='ECPositive/Sheet1' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/EC/ECPositive/Sheet1/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /></object></div>
```{js, company1, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1714078091304'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
### Companies
<div class='tableauPlaceholder' id='viz1714078138023' style='position: relative'><noscript><a href='#'><img alt='Environmental Cost by Company (Negative Values) ' src='https://public.tableau.com/static/images/EC/ECNegative/Sheet12/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='ECNegative/Sheet12' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/EC/ECNegative/Sheet12/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /></object></div>
```{js, company2, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1714078138023'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
### UN-5
<div class='tableauPlaceholder' id='viz1714078223535' style='position: relative'><noscript><a href='#'><img alt='UN Big 5: Environmental Cost ' src='https://public.tableau.com/static/images/Bi/Big5EC/Sheet64/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='Big5EC/Sheet64' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/Bi/Big5EC/Sheet64/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /></object></div>
```{js, un5, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1714078223535'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
### SDG 2.1
<div class='tableauPlaceholder' id='viz1714078277239' style='position: relative'><noscript><a href='#'><img alt='Who in the UN Big 5 is Stopping Progress for SDG 2.1? ' src='https://public.tableau.com/static/images/SD/SDG2_1_17139784976040/Sheet6/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='SDG2_1_17139784976040/Sheet6' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/SD/SDG2_1_17139784976040/Sheet6/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /></object></div>
```{js, sdg2, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1714078277239'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
### SDG 6
<div class='tableauPlaceholder' id='viz1714078339328' style='position: relative'><noscript><a href='#'><img alt='Who in the UN Big 5 is Stopping Progress for SDG 6? ' src='https://public.tableau.com/static/images/SD/SDG6_17139785201610/Sheet62/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='SDG6_17139785201610/Sheet62' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/SD/SDG6_17139785201610/Sheet62/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /></object></div>
```{js, sdg6, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1714078339328'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
### SDG 15.5
<div class='tableauPlaceholder' id='viz1714078368922' style='position: relative'><noscript><a href='#'><img alt='Who in the UN Big 5 is Stopping Progress for SDG 15.5? ' src='https://public.tableau.com/static/images/SD/SDG15_5/Sheet63/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='SDG15_5/Sheet63' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/SD/SDG15_5/Sheet63/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /></object></div>
```{js, sdg15, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1714078368922'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
### Over Time
<div class='tableauPlaceholder' id='viz1713371895380' style='position: relative'><noscript><a href='#'><img alt='Environmental Cost ' src='https://public.tableau.com/static/images/ti/timeseriesenvcost/Sheet1/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='timeseriesenvcost/Sheet1' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/ti/timeseriesenvcost/Sheet1/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /><param name='filter' value='publish=yes' /></object></div>
```{js, ts, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1713371895380'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
Clustering
===
Column {.tabset data-width=500}
-----------------------------------------------------------------------
### Chart A
```{r}
ecic <- subset(eci[,10:11])
clust <- na.omit(ecic)
ecic$Working.Capacity <- as.numeric(as.factor(ecic$Working.Capacity))
ecic$Total.Environmental.Cost <- as.numeric(as.factor(ecic$Total.Environmental.Cost))
kmeans_result <- kmeans(ecic,
centers = 4,
nstart = 20)
par(bg = "white")
plot(ecic[,1], ecic[,2],
col = kmeans_result$cluster,
pch = 19,
main = "K Means Clustering of Cost and Working Capacity",
xlab = "Total Environmental Cost",
ylab = "Working Capacity") -> x
points(kmeans_result$centers[,1], kmeans_result$centers[,2],
col = 1:4, pch = 8, cex = 2)
```
### Chart B
```{r}
ecib <- eci[, c("EnvironmentalIntensitySalesFinal", "Biodiversity")]
clust <- na.omit(ecib)
ecib$EnvironmentalIntensitySalesFinal <- as.numeric(as.factor(ecib$EnvironmentalIntensitySalesFinal))
ecib$Biodiversity <- as.numeric(gsub(",","", ecib$Biodiversity))
kmeans_result <- kmeans(ecib,
centers = 2,
nstart = 20)
par(bg = "white")
plot(ecib[,1], ecib[,2],
col = kmeans_result$cluster,
pch = 19,
main = "K Means Clustering of Sales and Biodiversity",
xlab = "Environmental Intensity Sales",
ylab = "Biodiversity") -> x
points(kmeans_result$centers[,1], kmeans_result$centers[,2],
col = 1:4, pch = 8, cex = 2)
```
Column {.tabset data-width=500}
-----------------------------------------------------------------------
### Hierarchial 1
```{r}
ecix <- subset(eci[,9:10])
clust <- na.omit(ecic)
ecix$EnvironmentalIntensityOpInc <- as.numeric(as.factor(ecix$EnvironmentalIntensityOpInc))
ecix$Total.Environmental.Cost <- as.numeric(as.factor(ecix$Total.Environmental.Cost))
r <- dist(ecix)
hcr <- hclust(r, method = "complete")
par(bg = "white")
plot(hcr, labels = FALSE, hang = -1,
main = "Hierarchical Clustering Dendrogram of Intensity and Cost",
xlab = "Distance")
```
### Hierarchial 2
```{r}
d <- dist(ecib)
hc <- hclust(d, method = "complete")
par(bg = "white")
plot(hc, labels = FALSE, hang = -1,
main = "Hierarchical Clustering Dendrogram
of Sales and Biodiversity",
xlab = "Distance",
ylab = "Height")
```
Maps
===
Column {.tabset data-width=1000}
-----------------------------------------------------------------------
### Sales
<div class='tableauPlaceholder' id='viz1713364225541' style='position: relative'>
<noscript><a href='#'><img alt='Sum of Environmental Intensity (Sales) ' src='https://public.tableau.com/static/images/SH/SHYBQ85TG/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='path' value='shared/SHYBQ85TG' /> <param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/SH/SHYBQ85TG/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /><param name='filter' value='publish=yes' /></object>
</div>
```{js, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1713364225541');
var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script');
scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
### Cost
<div class='tableauPlaceholder' id='viz1713368088604' style='position: relative'><noscript><a href='#'><img alt='Sum of Environmental Cost ' src='https://public.tableau.com/static/images/en/environmentalcost/EnvCost/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='environmentalcost/EnvCost' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/en/environmentalcost/EnvCost/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /><param name='filter' value='publish=yes' /></object></div>
```{js, map2, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1713368088604'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
### Biodiversity
<div class='tableauPlaceholder' id='viz1713368129970' style='position: relative'><noscript><a href='#'><img alt='Sum of Biodiversity ' src='https://public.tableau.com/static/images/bi/biodiversity_17133680432790/Biodiv/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='biodiversity_17133680432790/Biodiv' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/bi/biodiversity_17133680432790/Biodiv/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /><param name='filter' value='publish=yes' /></object></div>
```{js, map3, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1713368129970'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
### Abiotic
<div class='tableauPlaceholder' id='viz1713368169283' style='position: relative'><noscript><a href='#'><img alt='Sum of Abiotic Resources ' src='https://public.tableau.com/static/images/ab/abiotic/Abiotic/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='abiotic/Abiotic' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/ab/abiotic/Abiotic/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /><param name='filter' value='publish=yes' /></object></div>
```{js, map4, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1713368169283'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
### Crop
<div class='tableauPlaceholder' id='viz1713368207334' style='position: relative'><noscript><a href='#'><img alt='Sum of Crop Production Capacity ' src='https://public.tableau.com/static/images/cr/cropproduction_17133678492700/CropProdCap/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='cropproduction_17133678492700/CropProdCap' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/cr/cropproduction_17133678492700/CropProdCap/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /><param name='filter' value='publish=yes' /></object></div>
```{js, map5, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1713368207334'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
### Fish
<div class='tableauPlaceholder' id='viz1713367130393' style='position: relative'><noscript><a href='#'><img alt='Sum of Fish Production Capacity ' src='https://public.tableau.com/static/images/en/envcost/FishProdCap/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='envcost/FishProdCap' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/en/envcost/FishProdCap/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /><param name='filter' value='publish=yes' /></object></div>
```{js, map6, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1713367130393'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
### Meat
<div class='tableauPlaceholder' id='viz1713367155403' style='position: relative'><noscript><a href='#'><img alt='Sum of Meat Production Capacity ' src='https://public.tableau.com/static/images/me/meatprodcap/MeatProdCap/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='meatprodcap/MeatProdCap' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/me/meatprodcap/MeatProdCap/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /><param name='filter' value='publish=yes' /></object></div>
```{js, map7, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1713367155403'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
### Water
<div class='tableauPlaceholder' id='viz1713367182160' style='position: relative'><noscript><a href='#'><img alt='Sum of Water Production Capacity ' src='https://public.tableau.com/static/images/wa/waterprodcap/WaterProd/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='waterprodcap/WaterProd' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/wa/waterprodcap/WaterProd/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /><param name='filter' value='publish=yes' /></object></div>
```{js, map8, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1713367182160'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
### Wood
<div class='tableauPlaceholder' id='viz1713367205393' style='position: relative'><noscript><a href='#'><img alt='Sum of Wood Production Capacity ' src='https://public.tableau.com/static/images/wo/woodprodcap/Wood/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='woodprodcap/Wood' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/wo/woodprodcap/Wood/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /><param name='filter' value='publish=yes' /></object></div>
```{js, map9, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1713367205393'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
### Work
<div class='tableauPlaceholder' id='viz1713367235518' style='position: relative'><noscript><a href='#'><img alt='Sum of Working Capacity ' src='https://public.tableau.com/static/images/wo/workcap/Work/1_rss.png' style='border: none' /></a></noscript><object class='tableauViz' style='display:none;'><param name='host_url' value='https%3A%2F%2Fpublic.tableau.com%2F' /> <param name='embed_code_version' value='3' /> <param name='site_root' value='' /><param name='name' value='workcap/Work' /><param name='tabs' value='no' /><param name='toolbar' value='yes' /><param name='static_image' value='https://public.tableau.com/static/images/wo/workcap/Work/1.png' /> <param name='animate_transition' value='yes' /><param name='display_static_image' value='yes' /><param name='display_spinner' value='yes' /><param name='display_overlay' value='yes' /><param name='display_count' value='yes' /><param name='language' value='en-US' /><param name='filter' value='publish=yes' /></object></div>
```{js, map10, embedcode, echo = FALSE}
var divElement = document.getElementById('viz1713367235518'); var vizElement = divElement.getElementsByTagName('object')[0]; vizElement.style.width='100%';vizElement.style.height=(divElement.offsetWidth*0.75)+'px'; var scriptElement = document.createElement('script'); scriptElement.src = 'https://public.tableau.com/javascripts/api/viz_v1.js'; vizElement.parentNode.insertBefore(scriptElement, vizElement);
```
Summary
===
Column {data-width=500}
-----------------------------------------------------------------------
### Chart A
```{r}
```
Column {data-width=500}
-----------------------------------------------------------------------
### Chart B
```{r}
```
References
===
Column {data-width=500}
---
**References**
+[Practitioner Guide to Calculating Corporate Environmental Impact](https://ifvi.org/wp-content/uploads/2023/10/Practitioner-Guide-To-Calculating-Corporate-Environmental-Impact.pdf)
+[Corporate Environmental Impact: Measurement, Data, and Information](https://www.hbs.edu/ris/Publication%20Files/Environmental%20Impact%20Draft%20Final%2010-8-22_0f521334-0a79-49e3-8637-518fb743a0a3.pdf)
+[HBS: Corporate Environmental Impact: Measurement, Data and Information](https://www.hbs.edu/faculty/research/publications/Pages/default.aspx?q=Corporate%20Environmental%20Impact%3A%20Measurement%2C%20Data%20)
+[Working Knowledge: Corporate Environmental Impact: Measurement, Data and Information](https://hbswk.hbs.edu/item/corporate-environmental-impact-measurement-data-and-information)
Author
===
Column {data-width=500}
-----------------------------------------------------------------------
### Hello
Caralina Lynn Crouch is a chemistry study at the University of Dayton. She is
also pursuing a Data Analytics minor and is a member of the Dayton Civic Scholars
2025 Cohort. Her interests include exploring the overlap of science and community
while also keeping her artist identity in mind.
You can keep up to date with her on [LinkedIn](https://www.linkedin.com/in/caralina-lynn-crouch-8015a8249/).
Column {data-width=500}
-----------------------------------------------------------------------
###
